home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t3.d64 / showscreen2.l < prev    next >
Text File  |  2007-02-28  |  150b  |  6 lines
  1. 9000 PROC SHOWSCREEN CLOSED
  2. 9010 VIC:=53248
  3. 9020 X:=(PEEK(VIC+17) MOD 32) DIV 16
  4. 9030 IF X=0 THEN POKE VIC+17,PEEK(VIC+17)+16
  5. 9040 ENDPROC SHOWSCREEN
  6.